﻿Public Class ucHeaderInfo
    Inherits System.Web.UI.UserControl

	Public WriteOnly Property StepNo As String
		Set(ByVal value As String)
			'Me.ltrStepNo.Text = value
		End Set
	End Property

	Public WriteOnly Property Message As String
		Set(ByVal value As String)
			'Me.ltrMessage.Text = value
		End Set
	End Property

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	End Sub

	Public Sub LoadData()
		If GlobalApp.RegisterInfo IsNot Nothing Then
			Dim registerInfo As Entity.OfficerInfoItem
			registerInfo = GlobalApp.RegisterInfo
			With registerInfo
				Me.OFFICER_APP_ID.Text = Common.Utility.FormatAppId(.officer_app_id)
				Me.OFFCIER_APP_TEL.Text = .offcier_app_tel
				Me.OFFICER_FIRSTNAME_THA.Text = .officer_firstname_tha
				Me.OFFICER_LASTNAME_THA.Text = .officer_lastname_tha
			End With
		End If
	End Sub

	Public Sub LoadDataEdit()
		If GlobalApp.DataSourceEditOfficer IsNot Nothing Then
			Dim registerInfo As Entity.OfficerInfoItem
			registerInfo = GlobalApp.DataSourceEditOfficer
			With registerInfo
				Me.OFFICER_APP_ID.Text = Common.Utility.FormatAppId(.officer_app_id)
				Me.OFFCIER_APP_TEL.Text = .offcier_app_tel
				Me.OFFICER_FIRSTNAME_THA.Text = .officer_firstname_tha
				Me.OFFICER_LASTNAME_THA.Text = .officer_lastname_tha
			End With
		End If
	End Sub

End Class